Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/crwdemo/formula.frm

Text File | 1995-12-05 | 9KB | 286 lines

VERSION 2.00
Begin Form Form5
   BackColor       =   &H00C0C0C0&
   Caption         =   "Form5"
   ClientHeight    =   6000
   ClientLeft      =   945
   ClientTop       =   1725
   ClientWidth     =   8685
   Height          =   6690
   Left            =   885
   LinkTopic       =   "Form5"
   ScaleHeight     =   6000
   ScaleWidth      =   8685
   Top             =   1095
   Width           =   8805
   Begin TextBox RecordSelectionString
      Height          =   855
      Left            =   240
      TabIndex        =   5
      Text            =   "   "
      Top             =   1320
      Width           =   7815
   End
   Begin TextBox ReturnValue
      Height          =   495
      Left            =   240
      TabIndex        =   4
      Top             =   4200
      Width           =   4575
   End
   Begin TextBox GroupSelectionString
      Height          =   855
      Left            =   240
      TabIndex        =   3
      Top             =   2880
      Width           =   7815
   End
   Begin Label Label4
      BackColor       =   &H00C0C0C0&
      Caption         =   "Status "
      Height          =   255
      Left            =   240
      TabIndex        =   6
      Top             =   3960
      Width           =   2535
   End
   Begin Label Label3
      BackColor       =   &H00C0C0C0&
      Caption         =   "Group Selection"
      Height          =   255
      Left            =   240
      TabIndex        =   2
      Top             =   2400
      Width           =   6375
   End
   Begin Label Label2
      BackColor       =   &H00C0C0C0&
      Caption         =   "Record Selection :"
      Height          =   255
      Left            =   240
      TabIndex        =   1
      Top             =   960
      Width           =   2055
   End
   Begin Label Label1
      BackColor       =   &H00C0C0C0&
      Caption         =   "Selection Screen"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "System"
      FontSize        =   9.75
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   495
      Left            =   240
      TabIndex        =   0
      Top             =   120
      Width           =   2655
   End
   Begin Menu Sel1
      Caption         =   "&Record Selection"
      Begin Menu Sel2
         Caption         =   "&Get Selection"
      End
      Begin Menu Sel3
         Caption         =   "&Clear Selection"
      End
      Begin Menu Sel4
         Caption         =   "&Accept Settings"
      End
   End
   Begin Menu Sel5
      Caption         =   "&Group Selection"
      Begin Menu Sel6
         Caption         =   "&Get Selection"
      End
      Begin Menu Sel7
         Caption         =   "&Clear Selection"
      End
      Begin Menu Sel8
         Caption         =   "&Accept Settings"
      End
   End
   Begin Menu Sel9
      Caption         =   "&Close Form"
   End
End
Sub Command1_Click ()
    Unload Form5
End Sub

Sub Command2_Click ()
          RecSel = RecordSelectionString.Text
          Rem MsgBox (RecSel)
          SetSelectionRtn% = PESetSelectionFormula(jobnum, RecSel)
          If SetSelectionRtn% = 1 Then
            ReturnValue.Text = "PESetSelectionFormula Success"
            'Form1.Rslt.Text = "PESetSelFormula Success "
          Else
            ReturnValue.Text = "PeSetSelectionFormula Failure"
            'Form1.Rslt.Text = "PESetSelFormula Failure"
          End If

End Sub

Sub Command3_Click ()
    RecordSelectionString.Text = " "
    RecordSelectionString.SetFocus
End Sub

Sub Command4_Click ()
    SetGroupSelectionRtn% = PESetGroupSelectionFormula(jobnum, GroupSelectionString)
    If SetGroupSelectionRtn% = 1 Then
        ReturnValue.Text = "SetGroupSelectionFormula Success"
        'Form1.Rslt.Text = "SetGrpSelFormula Success"
    Else
        ReturnValue.Text = "SetGroupSelectionFormula Failure"
        'Form1.Rslt.Text = "SetGrpSelFormula Failure"
    End If


End Sub

Sub Command5_Click ()
    GroupSelectionString.Text = " "
    GroupSelectionString.SetFocus
End Sub

Sub Command6_Click ()
    ReturnValue.SetFocus
End Sub

Sub Command7_Click ()
          Rtn1% = PEGetSelectionFormula(jobnum, TextHandle%, TextLength%)
          If Rtn1% = 1 Then
            ReturnValue.Text = "PEGetSelectionFormula Success 1"
            'Form1.Rslt.Text = "PEGetSelFormula Success"
          Else
            ReturnValue.Text = "PEGetSelectionFormula Failure 1"
            'Form1.Rslt.Text = "PEGetSelFormula Failure"
          End If

          Rtn2% = PEGetHandleString(TextHandle%, StrBuffer$, TextLength%)
          If Rtn2% = 1 Then
            RecordSelectionString = StrBuffer$
            ReturnValue.Text = "PEGetSelectionFormula Success 1"
          Else
            ReturnValue.Text = "PEGetSelectionFormula Failure 1"
          End If

End Sub

Sub Command8_Click ()
          Rtn1% = PEGetGroupSelectionFormula(jobnum, TextHandle%, TextLength%)
          If Rtn1% = 1 Then
            ReturnValue.Text = "PEGetGroupSelectionFormula Success 1"
            'Form1.Rslt.Text = "PEGetGrpSelFormula Success"
          Else
            ReturnValue.Text = "PEGetGroupSelectionFormula Failure 1"
            'Form1.Rslt.Text = "PEGetGrpSelFormula Failure "
          End If


          Rtn2% = PEGetHandleString(TextHandle%, StrBuffer$, TextLength%)
          If Rtn2% = 1 Then
            GroupSelectionString = StrBuffer$
            ReturnValue.Text = "PEGetGroupSelectionFormula Success 1"
          Else
            ReturnValue.Text = "PEGetGroupSelectionFormula Failure 1"
          End If

End Sub

Sub Command9_Click ()

End Sub

Sub Form_Load ()
    Form5.WindowState = 2
End Sub

Sub Sel2_Click ()
          'Rtn1% = PEGetSelectionFormula(jobnum, TextHandle%, TextLength%)
          'If Rtn1% = 1 Then
           ' ReturnValue.Text = "PEGetSelectionFormula Success 1"
            ''Form1.Rslt.Text = "PEGetSelFormula Success"
          'Else
           ' ReturnValue.Text = "PEGetSelectionFormula Failure 1"
            'Form1.Rslt.Text = "PEGetSelFormula Failure"
         ' End If


          'Rtn2% = PEGetHandleString(TextHandle%, StrBuffer$, TextLength%)
          'If Rtn2% = 1 Then
           ' RecordSelectionString = StrBuffer$
            'ReturnValue.Text = "PEGetSelectionFormula Success 1"
          'Else
          '  ReturnValue.Text = "PEGetSelectionFormula Failure 1"
         ' End If

End Sub

Sub Sel3_Click ()
    RecordSelectionString.Text = " "
    RecordSelectionString.SetFocus

End Sub

Sub Sel4_Click ()
          RecSel = RecordSelectionString.Text
          Rem MsgBox (RecSel)
          SetSelectionRtn% = PESetSelectionFormula(jobnum, RecSel)

          If SetSelectionRtn% = 1 Then
            ReturnValue.Text = "PESetSelectionFormula Success"
            'Form1.Rslt.Text = "PESetSelFormula Success "
          Else
            ReturnValue.Text = "PeSetSelectionFormula Failure"
            'Form1.Rslt.Text = "PESetSelFormula Failure"
          End If

End Sub

Sub Sel6_Click ()
          'Rtn1% = PEGetGroupSelectionFormula(jobnum, TextHandle%, TextLength%)
         ' If Rtn1% = 1 Then
          '  ReturnValue.Text = "PEGetGroupSelectionFormula Success 1"
            'Form1.Rslt.Text = "PEGetGrpSelFormula Success"
         ' Else
          '  ReturnValue.Text = "PEGetGroupSelectionFormula Failure 1"
            'Form1.Rslt.Text = "PEGetGrpSelFormula Failure "
         ' End If

         ' Rtn2% = PEGetHandleString(TextHandle%, StrBuffer$, TextLength%)
         ' If Rtn2% = 1 Then
          '  GroupSelectionString = StrBuffer$
          '  ReturnValue.Text = "PEGetGroupSelectionFormula Success 1"
         ' Else
          '  ReturnValue.Text = "PEGetGroupSelectionFormula Failure 1"
         ' End If

End Sub

Sub Sel7_Click ()
    GroupSelectionString.Text = " "
    GroupSelectionString.S